Option Explicit
Sub A_Sample032()
    'ѷӨL
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("A1")	'Nxs
    myRng1.Formula = "=B1+E3"	'N
    'ǳƨ즹
    Set myRng2 = myRng1.Precedents
    MsgBox myRng2.Address
    Set myRng1 = Nothing		'
    Set myRng2 = Nothing
End Sub
